home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
msdos
/
dbhamlog
/
injigl.prg
< prev
next >
Wrap
Text File
|
1991-10-18
|
1KB
|
60 lines
************ 印刷 ( 検索 格子位置 ) ************
**************** INJIGL.PRG ****************
SET CONSOLE OFF
WAIT
SET CONSOLE ON
SET DEVICE TO PRINT
GOTO TOP
FIND &G
*SEEK DTOC(MDY)
*IF EOF()
*GOTO TOP
*LOCATE FOR MMDDYY>MDY .AND. MMDDYY<=MDYE
*ENDIF
DO WHILE .NOT. EOF() && *********************************1
@ 1,2 SAY "格子位置"
@ 1,15 SAY "アマチュア 無 線 QSO ログ 管 理 システム 印刷G.PRG"
@ 2,2 SAY G
@ 2,15 SAY "=========================================== "
@ 4,1 SAY "年/月/日 呼出符号 電波 周波数 氏 名 住 所 JCC_G QSL"
@ 5,1 SAY "------------------------------------------------------------------------------"
STORE 6 TO MGYOU
DO WHILE MGYOU<56 .AND. .NOT. EOF() && *******************2
****************
L=LEN(G)
FR=LEFT(GL,L)
IF FR<>G .OR. LEN(TRIM(GL))<>L
EXIT
ENDIF
****************
@ MGYOU,1 SAY MMDDYY
@ MGYOU,11 SAY CALL
@ MGYOU,20 SAY WAVE
@ MGYOU,26 SAY FREQ
@ MGYOU,32 SAY NAME
@ MGYOU,43 SAY ADDRES
@ MGYOU,70 SAY JCC_G
@ MGYOU,76 SAY QSL
STORE MGYOU+1 TO MGYOU
ENDIF
SKIP
LOOP
ENDDO && **********************************************2
L=LEN(G)
FR=LEFT(GL,L)
IF FR<>G .OR. LEN(TRIM(GL))<>L
EXIT
ENDIF
ENDDO && **********************************************1
@ 1,1 SAY " "
SET DEVICE TO SCREEN
RETURN